home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / mplbas.zip / RBBS-VAR.BAS < prev    next >
BASIC Source File  |  1989-09-05  |  20KB  |  697 lines

  1. ' $SUBTITLE: 'Arrays passed between various components of RBBS-PC'
  2. ' $PAGE
  3.    DEFINT A-Z
  4. '
  5. ' The following static arrays are passed between the various subroutines
  6. ' within RBBS-PC.
  7. '
  8.     DIM HELP$(9)                      ' Help file names
  9.     DIM LG$(12)                       ' Holds message strings
  10.     DIM MENU$(7)                      ' Menu file names
  11.     DIM SUBDIR$(50)                   ' Download Sub-Dirs
  12.     DIM CX$(8)                        ' Set up color arrays
  13.     DIM SAV$(99)
  14. ' $SUBTITLE: 'Variables passed between various components of RBBS-PC'
  15. ' $PAGE
  16. '
  17. ' The following variables are passed between the various and
  18. ' seperately compiled subroutines used by RBBS-PC.
  19. '
  20.    COMMON SHARED _
  21.           A$, _
  22.           A$(1), _
  23.           A, _
  24.           ABORT, _
  25.           ACKC$, _
  26.           ACKNOWLEDGE$, _
  27.           ACTIVE.BULLETINS, _
  28.           ACTIVE.FMS.DIRECTORY$, _
  29.           ACTIVE.MENU$, _
  30.           ACTIVE.MESSAGE$, _
  31.           ACTIVE.MESSAGE.FILE$, _
  32.           ACTIVE.USER.FILE$, _
  33.           ACTIVE.USER.NAME$, _
  34.           ADD.DIR.SECURITY, _
  35.           ADIM, _
  36.           ADJUSTED.SECURITY, _
  37.           ADVANCE.PROTO.WRITE, _
  38.           ALL.OPTS$, _
  39.           ALLOW.CALLER.TURBO, _
  40.           ALTDIR.EXTENSION$, _
  41.           ALWAYS.STREW.TO$, _
  42.           ANS.INDEX, _
  43.           ANS.MENU$, _
  44.           ARC.WORK$, _
  45.           ARKVIEW.PATH$,_           'VIEWARK MOD
  46.           ASK.EXTENDED.DESC, _
  47.           ASK.IDENTITY, _
  48.           ATTEMPTS.ALLOWED, _
  49.           AUTO.LOGOFF, _
  50.           AUTODOWNLOAD.AVAILABLE, _
  51.           AUTODOWNLOAD.DESIRED, _
  52.           AUTODOWNLOAD.IN.PROGRESS, _
  53.           AUTODOWNLOAD.VERIFIED, _
  54.           AUTOPAGE.DEF$, _
  55.           AUTO.LOGOFF!, _
  56.           AUTO.END, _                 'Pe 06/04/89
  57.           AUTO.UPGRADE.SEC, _
  58.           B$, _
  59.           B$(1), _
  60.           B, _
  61.           BACK.ARROW$, _
  62.           BACKSPACE$, _
  63.           BATCH.PROTO, _
  64.           BATCH.TRANSFER, _
  65.           BAUD.PARITY$, _
  66.           BAUD.RATE.DIVISOR, _
  67.           BAUD.TEST!, _               'KG090102
  68.           BAUDOT, _
  69.           BEG.FILE, _
  70.           BEG.LIBRARY, _
  71.           BEG.MAIN, _
  72.           BEG.UTIL, _
  73.           BELL.RINGER$, _
  74.           BG, _
  75.           BLK, _
  76.           BLOCK.SIZE, _
  77.           BLOCKS.IN.FILE#, _
  78.           BPS, _
  79.           BOLD.TEXT$, _
  80.           BORDER, _
  81.           BUFFER.SIZE, _
  82.           BULLETIN.MENU$, _
  83.           BULLETIN.PREFIX$, _
  84.           BULLETIN.SAVE$, _
  85.           BULLETINS.OPTIONAL, _
  86.           BYPASS.MSGS, _
  87.           BYPASS.TIME.CHECK, _
  88.           BYTE.METHOD, _
  89.           BYTES.IN.FILE#, _
  90.           BYTES.TODAY!, _
  91.           C, _
  92.           C.C, _
  93.           C.L, _
  94.           CALLERS.FILE$, _
  95.           CALLERS.FILE.INDEX!, _
  96.           CALLERS.FILE.PREFIX$, _
  97.           CALLERS.RECORD$, _
  98.           CAN.DOWNLOAD.FROM.UP, _
  99.           CANCEL$, _
  100.           CATEGORY.CODE$(1), _
  101.           CATEGORY.DESC$(1), _
  102.           CATEGORY.NAME$(1), _
  103.           CARRIAGE.RETURN$, _
  104.           CHAINED.DIR$, _
  105.           CHAT.AVAILABLE, _
  106.           CHECKSUM, _
  107.           CHECK.BULLETIN.LOGON, _
  108.           CI$, _
  109.           CITY.STATE$, _
  110.           CM, _
  111.           CN$, _
  112.           COLOR.RESET$, _
  113.           COM.PORT$, _
  114.           COM.PROGRAM, _
  115.           COMMAND.PROMPT$, _
  116.           COMMAND.TRANSFER$, _
  117.           COMMANDS.BETWEEN.RINGS, _
  118.           COMMANDS.IN.PROMPT, _
  119.           COMMENTS.AS.MESSAGES, _
  120.           COMMENTS.FILE$, _
  121.           COMPORT%, _
  122.           COMMPORT.STACK$, _
  123.           COMPUTER.TYPE, _
  124.           CONFERENCE.MODE, _
  125.           CONFERENCE.MENU$, _
  126.           CONCAT.FILES, _
  127.           CONFIG.FILENAME$, _
  128.           CONFMAIL.LIST$, _
  129.           CR, _
  130.           CRLF$, _
  131.           CURRENT.DATE$, _
  132.           CURRENT.DEF$, _
  133.           CURRENT.PUI$, _
  134.           CURSOR.LINE, _
  135.           CURSOR.ROW, _
  136.           CUSTOM.PUI, _
  137.           CX$(),_                'Pe Color Mod
  138.           DATE.ORDERED.FMS, _
  139.           DAYS.IN.REGISTRATION.PERIOD, _
  140.           DAYS.TO.WARN, _
  141.           DEBUG, _
  142.           DEFAULT.CATEGORY.CODE$, _
  143.           DEFAULT.ECHOER$, _
  144.           DEFAULT.EXTENSION$, _
  145.           DEFAULT.LINE.ACK$, _
  146.           DEFAULT.SECURITY.LEVEL, _
  147.           DELAY!, _
  148.           DELETE.INVALID, _
  149.           DELETED.MESSAGE$, _
  150.           DENY.ACCESS, _
  151.           DF, _
  152.           DF$, _
  153.           DFLTXFER$, _
  154.           DIR.CATEGORY.FILE$, _
  155.           DIR.FILE$, _
  156.           DIR.PROMPT$, _
  157.           DIRECTORY.EXTENTION$, _
  158.           DIRECTORY.PATH$, _
  159.           DIRECTORY.PREFIX$, _
  160.           DISK.FOR.DOS$, _
  161.           DISKFULL.GO.OFFLINE, _
  162.           DISPLAY.AS.UNIT, _
  163.           DISTANT.TGET, _
  164.           DLBYTES!, _
  165.           DL.BYTES$, _
  166.           DL.TODAY!, _
  167.           DOOR.DISPLAY$, _
  168.           DOOR.SKIPS.PASSWORD, _
  169.           DOORED.TO$, _
  170.           DOORS.AVAILABLE, _
  171.           DOORS.DEF$, _
  172.           DOORS.TERMINAL.TYPE, _
  173.           DOS.VERSION, _
  174.           DOSANSI, _
  175.           DOWN.TEMPLATE$, _
  176.           DOWNLOADS, _
  177.           DOWNLOAD.COMPLETED, _       'Pe Aouto off mod
  178.           DOWNLOAD.DRIVES$, _
  179.           DOWNLOAD.RECORD$, _
  180.           DR.1$, _
  181.           DR.2$, _
  182.           DR.3$, _
  183.           DR.4$, _
  184.           DTR.DROP.DELAY, _
  185.           DUMB.MODEM, _
  186.           DWN.INDEX, _
  187.           EC, _
  188.           ECHOER$, _
  189.           EIGHT.BIT, _
  190.           EL, _
  191.           ELAPSED.TIME, _
  192.           ELAPSED.TIME$, _
  193.           EMPHASIZE.OFF$, _
  194.           EMPHASIZE.OFF.DEF$, _
  195.           EMPHASIZE.ON$, _
  196.           EMPHASIZE.ON.DEF$, _
  197.           EN$, _
  198.           END.OFFICE.HOURS, _
  199.           END.TIME, _
  200.           END.TRANSMISSION$, _
  201.           ENFORCE.UPLOAD.DOWNLOAD.RATIOS, _
  202.           EOL, _
  203.           EPILOG$, _
  204.           ESCAPE$, _
  205.           ESCAPE.INSECURE, _
  206.           EXIT.TO.DOORS, _
  207.           EXPIRATION.DATE$, _
  208.           EXPIRED.SECURITY, _
  209.           EXPECT.ACTIVE.MODEM, _
  210.           EXPERT.USER, _
  211.           EXPERT.USER.DEF, _
  212.           EXTENDED.LOGGING, _
  213.           EXTENDED.OFF, _
  214.           EXT$, _              'Pe File Extension Mod
  215.           F1.KEY, _
  216.           F7.MESSAGE$, _
  217.           F10.KEY, _
  218.           FAILURE.PARM, _
  219.           FAILURE.STRING$, _
  220.           FAKE.XRPT, _
  221.           FALSE, _
  222.           FF, _
  223.           FG, _
  224.           FG.1$, _
  225.           FG.1.DEF$, _
  226.           FG.2$, _
  227.           FG.2.DEF$, _
  228.           FG.3$, _
  229.           FG.3.DEF$, _
  230.           FG.4$, _
  231.           FG.4.DEF$, _
  232.           FILE.COMMANDS$, _
  233.           FILE.NAME$, _
  234.           FILE.NAME.HOLD$, _
  235.           FILE.OPTS$, _
  236.           FILESEC.FILE$, _
  237.           FILESYS.PARAMETER, _
  238.           FIRST.NAME$, _
  239.           FIRST.NAME.PROMPT$, _
  240.           FIRST.NAME.END, _
  241.           FLEN, _
  242.           FLOW.CONTROL, _
  243.           FMS.DIRECTORY$, _
  244.           FORCE.KEYBOARD, _
  245.           FOSSIL, _
  246.           FREE.SPACE$, _
  247.           FREESPACE.UPLOAD.FILE$, _
  248.           FT$, _
  249.           FUNCTION.KEY
  250. COMMON SHARED _
  251.           GET.EXT.DESC, _
  252.           GLOBAL.BYTES.TODAY!, _
  253.           GLOBAL.COMMANDS$, _
  254.           GLOBAL.DL.TODAY!, _
  255.           GLOBAL.DLBYTES!, _
  256.           GLOBAL.DOWNLOADS, _
  257.           GLOBAL.SYSOP, _
  258.           GLOBAL.ULBYTES!, _                                         ' RS111001
  259.           GLOBAL.UPLOADS, _
  260.           GR, _
  261.           GRN$, _
  262.           GSR.ARA$(1), _
  263.           HALT.ON.ERROR, _
  264.           HAS.DOORED, _
  265.           HAS.PRIVDOOR, _                                            ' KG052501
  266.           HH, _
  267.           HHH, _
  268.           HELP$(), _
  269.           HELP.EXTENSION$, _
  270.           HELP.PATH$, _
  271.           HIDDEN, _
  272.           HIGHLIGHT.OFF, _
  273.           HOME.CONFERENCE$, _
  274.           HOST.ECHO.OFF$, _
  275.           HOST.ECHO.ON$, _
  276.           IN.CONF.MENU, _
  277.           INITIAL.CREDIT#, _
  278.           INTERNAL.EQUIV$, _
  279.           INTERNAL.PROTO$, _
  280.           INTERRUPT.ON$, _
  281.           INVALID.FILE.OPTS$, _
  282.           INVALID.MAIN.OPTS$, _
  283.           INVALID.OPTS$, _
  284.           INVALID.LIBRARY.OPTS$, _
  285.           INVALID.SYS.OPTS$, _
  286.           INVALID.UTIL.OPTS$, _
  287.           JUST.SEARCHING, _             'Pe THREAD MOD
  288.           KEEP.INIT.BAUD, _
  289.           KEEP.TIME.CREDITS, _
  290.           KERMIT.EXE.FILE$, _
  291.           KERMIT.SUPPORT, _
  292.           KEY.PRESSED, _
  293.           KEY.PRESSED$, _
  294.           KEYBOARD.STACK$, _
  295.           KILL.MESSAGE, _
  296.           LAST.COMMAND$, _
  297.           LAST.DATE.TIME.ON$, _
  298.           LAST.DATE.TIME.ON.SAVE$, _
  299.           LAST.INDEX, _
  300.           LAST.MESSAGE.READ, _
  301.           LAST.NAME$, _
  302.           LAST.NAME.PROMPT$, _
  303.           LAST.NAME.END, _
  304.           LAST.EXT$, _               ' Pe Zipfile mod
  305.           LAST.SMART.COLOR$, _
  306.           LEN.HASH, _
  307.           LEN.INDIV, _
  308.           LG$(), _
  309.           LIBRARY.ARCHIVE.PATH$, _
  310.           LIBRARY.ARCHIVE.PROGRAM$, _
  311.           LIBRARY.COMMANDS$, _
  312.           LIBRARY.DIRECTORY$, _
  313.           LIBRARY.DIRECTORY.EXTENTION$, _
  314.           LIBRARY.DIRECTORY.PATH$, _
  315.           LIBRARY.DISK.CHAR$, _
  316.           LIBRARY.DRIVE$, _
  317.           LIBRARY.MAX.DISK, _
  318.           LIBRARY.MAX.DIRECTORY, _
  319.           LIBRARY.MAX.SUBDIR, _
  320.           LIBRARY.NODE.ID$, _
  321.           LIBRARY.OPTS$, _
  322.           LIBRARY.SUBDIR.PREFIX$, _
  323.           LIBRARY.TYPE, _
  324.           LIBRARY.WORK.DISK.PATH$, _
  325.           LIMIT.MINUTES.PER.SESSION!, _
  326.           LIMIT.SEARCH.TO.FMS, _
  327.           LINE.25$, _
  328.           LINE.25.HOLD$, _
  329.           LINE.CONTROL.REGISTER, _
  330.           LINE.FEED$, _
  331.           LINE.FEEDS, _
  332.           LINE.STATUS.REGISTER, _
  333.           LINEEDIT.CHK$, _
  334.           LINEMES$, _
  335.           LINES.IN.MESSAGE, _
  336.           LINES.IN.MESSAGE.SAVE, _
  337.           LINES.PRINTED, _
  338.           LIST.DIRECTORY, _
  339.           LIST.INDEX, _
  340.           LIST.NEW.DATE$, _
  341.           LM$, _
  342.           LOCAL.BACKSPACE$, _
  343.           LOCAL.USER, _
  344.           LOCAL.USER.MODE, _
  345.           LOCK.DRIVE, _
  346.           LOCK.FILE.NAME$, _
  347.           LOCK.STATUS$, _
  348.           LOGON.ACTIVE, _
  349.           LOGON.ERROR.INDEX, _
  350.           LOGON.MAIL.LEVEL$, _
  351.           LSB
  352. COMMON SHARED _
  353.           M(2), _
  354.           MACRO.ACTIVE, _
  355.           MACRO.DRVPATH$, _
  356.           MACRO.ECHO, _
  357.           MACRO.EXTENSION$, _
  358.           MACRO.MIN, _
  359.           MACRO.SAVE, _
  360.           MACRO.TEMPLATE$, _
  361.           MAIL.WAITING, _
  362.           MAIN.COMMANDS$, _
  363.           MAIN.DIRECTORY.EXTENTION$, _
  364.           MAIN.FMS.DIRECTORY$, _
  365.           MAIN.MESSAGE.BACKUP$, _
  366.           MAIN.MESSAGE.FILE$, _
  367.           MAIN.OPTS$, _
  368.           MAIN.PUI$, _
  369.           MAIN.USER.FILE$, _
  370.           MAIN.USER.FILE.INDEX, _
  371.           MASTER.DIRECTORY.NAME$, _
  372.           MAX.CARRIER.WAIT, _
  373.           MAX.DESC.LEN, _
  374.           MAX.EXTENDED.LINES, _
  375.           MAX.MESSAGE.LINES, _
  376.           MAX.MESSAGE.LINES.DEF, _
  377.           MAX.PER.DAY,_
  378.           MAX.REG.SEC, _
  379.           MAX.WORK.VAR, _
  380.           MAXIMUM.NUMBER.OF.NODES, _
  381.           MAXIMUM.PASSWORD.CHANGES, _
  382.           MAXIMUM.VIOLATIONS, _
  383.           MENU$(), _
  384.           MENU.INDEX, _
  385.           MENUS.CAN.PAUSE, _
  386.           MESSAGE.DIM.INDEX, _
  387.           MESSAGE.DIM.INDEX.SAVE, _
  388.           MESSAGE.FILE.LOCK, _
  389.           MESSAGE.PASSWORD, _
  390.           MESSAGE.RECORD$, _
  391.           MESSAGE.REMINDER, _
  392.           MESSAGES.CAN.GROW, _
  393.           MIN.NEWCALLER.BAUD, _
  394.           MIN.OLDCALLER.BAUD, _
  395.           MIN.SEC.TO.VIEW, _
  396.           MINIMUM.LOGON.SECURITY, _
  397.           MINIMUM.SECURITY.FOR.TEMP.PASSWORD, _
  398.           MINUTES.IN.DOORS, _
  399.           MINUTES.PER.SESSION!, _
  400.           MLCOM, _
  401.           MMM, _
  402.           MNP.SUPPORT, _
  403.           MODEM.ANSWER.COMMAND$, _
  404.           MODEM.COMMAND.DELAY.TIME, _
  405.           MODEM.CONTROL.REGISTER, _
  406.           MODEM.COUNT.RINGS.COMMAND$, _
  407.           MODEM.GO.OFFHOOK.COMMAND$, _
  408.           MODEM.INIT.BAUD$, _
  409.           MODEM.INIT.COMMAND$, _
  410.           MODEM.INIT.WAIT.TIME, _
  411.           MODEM.OFFHOOK, _
  412.           MODEM.RESET.COMMAND$, _
  413.           MODEM.STATUS.REGISTER, _
  414.           MORE.PROMPT$, _
  415.           MSB, _
  416.           MSG.HEADER$, _                                             ' KG072003
  417.           MULTI.LINK.PRESENT, _
  418.           MUSIC, _
  419.           N$, _
  420.           NEGATIVE.ACKNOWLEDGE$, _
  421.           NET.MAIL$, _
  422.           NETBAUD$, _
  423.           NETRELIABLE$, _
  424.           NETWORK.TYPE, _
  425.           NEW.FILES.CHECK, _
  426.           NEW.MESSAGES, _
  427.           NEW.PRIVATE.MSGS.SECURITY, _
  428.           NEW.PUBLIC.MSGS.SECURITY, _
  429.           NEW.USER.BELL, _
  430.           NEW.USER.CASE, _
  431.           NEW.USER.DEFAULT.MODE, _
  432.           NEW.USER.DEFAULT.PROTOCOL$, _
  433.           NEW.USER.GRAPHICS$, _
  434.           NEW.USER.LINE.FEEDS, _
  435.           NEW.USER.MARGINS, _
  436.           NEW.USER.NULLS, _
  437.           NEW.USER.QUESTIONNAIRE$, _
  438.           NEWUSER.FILE$, _
  439.           NEWUSER.SETS.DEFAULTS, _
  440.           NEXT.MESSAGE.RECORD, _
  441.           NG$, _
  442.           NO, _
  443.           NO.ADVANCE, _
  444.           NODE.FILE.ID$, _
  445.           NODE.ID$, _
  446.           NODE.RECORD.INDEX, _
  447.           NODE.WORK.FILE$, _
  448.           NON.STOP, _
  449.           NON.STOP.SAVE, _
  450.           NOT.CTS, _
  451.           NUL$, _
  452.           NULLS, _
  453.           NUM.CATEGORIES, _
  454.           NUM.DNLD.BYTS!, _
  455.           OK, _
  456.           OLD.DAT$, _
  457.           OMIT.MAIN.DIRECTORY$, _
  458.           ONE.STOP, _
  459.           OPT.SEC(1), _
  460.           OPTION.END$, _
  461.           ORIG.CALLERS$, _
  462.           ORIG.COMMANDS$, _
  463.           ORIG.CONFIG$, _
  464.           ORIG.MESSAGE.FILE$, _
  465.           ORIG.SECURITY, _                                           ' KG052104
  466.           ORIG.SYSOP.FN$, _
  467.           ORIG.SYSOP.LN$, _
  468.           ORIG.USER.FILE$, _
  469.           ORIG.USER.FILE.INDEX, _
  470.           ORIG.USER.NAME$, _
  471.           OVERWRITE.SECURITY.LEVEL, _
  472.           PAGE.LENGTH, _
  473.           PAGE.LENGTH.DEF, _                                         ' KG080801
  474.           PAGE.STATUS$, _
  475.           PAGING.PRINTER.SUPPORT$, _
  476.           PARSE.OFF, _
  477.           PASSWORD$, _
  478.           PASSWORD.SAVE$, _
  479.           PASSWORD.FAILED, _
  480.           PASSWORDS.FILE$, _
  481.           PERSONAL.BEGIN, _
  482.           PERSONAL.CONCAT, _
  483.           PERSONAL.DIR$, _
  484.           PERSONAL.DRVPATH$, _
  485.           PERSONAL.LEN, _
  486.           PERSONAL.PROTOCOL$, _
  487.           POSSIBLE.MACRO, _
  488.           PRELOG$, _
  489.           PRESS.ENTER$, _
  490.           PRESS.ENTER.EXPERT$, _
  491.           PRESS.ENTER.NOVICE$, _
  492.           PREV.BASE$, _
  493.           PREV.PUI$, _
  494.           PRINTER, _
  495.           PRIVATE.READ.SEC, _
  496.           PRIVATE.DOOR, _
  497.           PROMPT.BELL, _
  498.           PROMPT.BELL.DEF, _
  499.           PROMPT.HASH$, _
  500.           PROMPT.INDIV$, _
  501.           PROTO.DEF$, _
  502.           PROTO.MACRO$, _
  503.           PROTO.METHOD$, _
  504.           PROTO.PROMPT$, _
  505.           PUBLIC.READ.SEC, _
  506.           Q, _
  507.           Q!, _
  508.           QUES.PATH$, _
  509.           QUESTIONNAIRE.ABORTED, _
  510.           QUESTIONNAIRE.CHAIN.STARTED, _
  511.           QUIT.LIST$, _
  512.           QUIT.PROMPT.EXPERT$, _
  513.           QUIT.PROMPT.NOVICE$
  514. COMMON SHARED _
  515.           RATIO.RESTRICTION#, _
  516.           RBBS.BAT$, _
  517.           RBBS.NAME$, _
  518.           RCTTY.BAT$, _
  519.           RECYCLE.TO.DOS, _
  520.           RECYCLE.WAIT, _
  521.           REDIRECT.IO.METHOD, _
  522.           REG.DATE$, _
  523.           REG.DAYS.REMAINING, _
  524.           REGISTRATION.PROGRAM$, _
  525.           RELIABLE.MODE, _
  526.           REMEMBER.NEW.USERS, _
  527.           REMIND.FILE.TRANSFERS, _
  528.           REMIND.PROFILE, _
  529.           REMOTE.ECHO, _
  530.           REPLY, _
  531.           REQ.8.BIT, _
  532.           REQ.QUES.ANSWERED, _
  533.           REQUIRE.NON.ASCII, _
  534.           REQUIRED.QUESTIONNAIRE$, _
  535.           REQUIRED.RINGS, _
  536.           RESTRICT.BY.DATE, _
  537.           RESTRICT.VALID.CMDS, _
  538.           RET, _
  539.           RET.ERL, _
  540.           RETURN.LINE.FEED$, _
  541.           RIGHT.MARGIN, _
  542.           RTS$, _
  543.           S, _
  544.           SCREEN.OUT.MSG$, _
  545.           SEARCHING.ALL, _                                           ' KG081201
  546.           SEC.CHANGE.MSG, _
  547.           SEC.KILL.ANY, _
  548.           SECVIO.HLP$, _
  549.           SECONDS.PER.SESSION!, _
  550.           SECTION$, _
  551.           SECTION.OPTS$, _
  552.           SECTION.PROMPT$, _
  553.           SECURITY.LEVEL$, _
  554.           SECURITY.EXEMPT.FROM.EPILOG, _
  555.           SHARE.IT, _
  556.           SHOOT.YOURSELF, _
  557.           SHOW.SECTION, _
  558.           SIZE.OF.STACK, _
  559.           SKIP.FILES.LOGON, _
  560.           SL, _
  561.           SL.CATEGORIZE.UPLOADS, _
  562.           SMART.TABLE$, _
  563.           SMART.TEXT, _
  564.           SMART.TEXT$, _
  565.           SNOOP, _
  566.           SPEED.FACTOR!, _
  567.           SQ, _
  568.           SSS, _
  569.           START.HASH, _
  570.           START.INDIV, _
  571.           START.OF.HEADER$, _
  572.           START.OFFICE.HOURS, _
  573.           START.TIME, _
  574.           STOP.FILE, _
  575.           STOP.INTERRUPTS, _
  576.           SUB.SECTION, _
  577.           STORE.PARSE.AT, _                                          ' KG083101
  578.           SUBDIR$(), _
  579.           SUBDIR.COUNT, _
  580.           SUBDIR.INDEX, _
  581.           SUBROUTINE.PARAMETER, _
  582.           SURVIVE.NOUSER.ROOM, _
  583.           SWITCH.BACK, _
  584.           SYSOP, _
  585.           SYSOP.ANNOY, _
  586.           SYSOP.AVAILABLE, _
  587.           SYSOP.COMMANDS$, _
  588.           SYSOP.COMMENT, _
  589.           SYSOP.FIRST.NAME$, _
  590.           SYSOP.LAST.NAME$, _
  591.           SYSOP.MENU.SECURITY.LEVEL, _
  592.           SYSOP.NEXT, _
  593.           SYSOP.PASSWORD.1$, _
  594.           SYSOP.PASSWORD.2$, _
  595.           SYSOP.SECURITY.LEVEL, _
  596.           SYSTEM.OPTS$, _
  597.           TALK.ALL, _
  598.           TALK.TO.MODEM.AT$, _
  599.           TCA!, _
  600.           TEMP.MAX.PER.DAY, _
  601.           TEMP.PASSWORD$, _
  602.           TEMP.REG.PERIOD, _
  603.           TEMP.SECURITY.LEVEL, _
  604.           TEMP.TIME.ALLOWED, _
  605.           TEMP.TIME.LOCK, _
  606.           TEST.PARITY, _
  607.           TESTED.INTEGER.VALUE, _
  608.           TIM$, _
  609.           TIME.CREDITS!, _
  610.           TIME.LOCK, _
  611.           TIME.LOCK.SET, _
  612.           TIME.LOGGED.ON$, _
  613.           TIME.TO.DROP.TO.DOS, _
  614.           TIME.TO.DROP.TO.DOS!, _
  615.           TIMES.LOGGED.ON, _
  616.           TODAY.DL$, _
  617.           TODAY.BYTES$, _
  618.           TOGGLE.ONLY, _
  619.           TRANSFER.FUNCTION, _
  620.           TRANSFER.OPTIONS$, _
  621.           TRASHCAN.FILE$, _
  622.           TRUE, _
  623.           TURBO.KEY, _
  624.           TURBO.KEY.USER, _
  625.           TURBO.RBBS, _
  626.           TURN.PRINTER.OFF, _
  627.           ULBYTES!, _
  628.           UL.BYTES$, _
  629.           UNIT.COUNT, _
  630.           UP.TEMPLATE$, _
  631.           UPCAT.HELP$, _
  632.           UPINC, _
  633.           UPLOAD.DIR.CHECK$, _
  634.           UPLOAD.DIRECTORY$, _
  635.           UPLOAD.DRIVE.FILE$, _
  636.           UPLOAD.PATH$, _
  637.           UPLOAD.RECORD$, _
  638.           UPLOAD.SUBDIR$, _
  639.           UPLOAD.TIME.FACTOR!, _
  640.           UPLOAD.TO.SUBDIR, _
  641.           UPLOADS, _
  642.           UPPER.CASE, _
  643.           USE.BASIC.WRITES, _
  644.           USE.DIR.ORDER, _
  645.           USE.DEVICE.DRIVER$, _
  646.           USE.EXTERNAL.XMODEM, _
  647.           USE.EXTERNAL.YMODEM, _
  648.           USE.TPUT, _
  649.           USER.BLOCK.LOCK, _
  650.           USER.DOWNLOADS$, _
  651.           USER.FILE.INDEX, _
  652.           USER.FILE.LOCK, _
  653.           USER.GRAPHIC.DEFAULT$, _
  654.           USER.LOCATION$, _
  655.           USER.LOGON.TIME!, _
  656.           USER.NAME$, _
  657.           USER.OPTIONS$, _
  658.           USER.RECORD$, _
  659.           USER.SECURITY.LEVEL, _
  660.           USER.SECURITY.SAVE, _
  661.           USER.TEXT.COLOR, _
  662.           USER.TRANSFER.DEFAULT$, _
  663.           USER.UPLOADS$, _
  664.           UTIL.COMMANDS$, _
  665.           UTIL.OPTS$, _
  666.           VERSION.ID$, _
  667.           VIOLATION$, _
  668.           VIOLATIONS.THIS.SESSION, _
  669.           VOICE.TYPE, _
  670.           WAIT.BEFORE.DISCONNECT, _
  671.           WAIT.EXPIRED, _
  672.           WELCOME.FILE$, _
  673.           WELCOME.FILE.DRV.PATH$, _
  674.           WELCOME.INTERRUPTABLE, _
  675.           WORK.ARA$(1), _
  676.           WRAP.CALLERS.FILE$, _
  677.           WRITE.BUF.DEF, _
  678.           WXMODEM.SUPPORT, _
  679.           XFER.SUPPORT, _
  680.           Y$, _
  681.           YES, _
  682.           XOFF$, _
  683.           XOFF.ED, _
  684.           XON$, _
  685.           XON.XOFF, _
  686.           Z$, _
  687.           Z.ABORT      'Pe thread mod
  688. ' $SUBTITLE: 'Functions common to all components of RBBS-PC'
  689. ' $PAGE
  690. '
  691. ' The following functions may be used by any routine in RBBS-PC
  692. '
  693. ' FNOFFON$ returns "Off" if switch is 0, and returns "On" if
  694. ' switch is non-zero.
  695.  
  696. DEF FNOFFON$ (SWITCH) = MID$("OffOn", 1 - 3 * (SWITCH <> 0), 3)
  697.